#lang rosetta-racket


(provide test-circle-line
         test-c-circle-line
         test-circle-surface
         test-c-circle-surface)


(define (test-circle-line)
  (lift
   (thunk (displayln "Circle line (origin)"))
   (circle 1)))

(define (test-c-circle-line)
  (lift
   (thunk (displayln "Circle line (xyz 1 2 3)"))
   (circle (x 3) 1)))

(define (test-circle-surface)
  (lift
   (thunk (displayln "Circle surface (origin)"))
   (circle-surface 2)))

(define (test-c-circle-surface)
  (lift
   (thunk (displayln "Circle surface (xyz 1 2 3)"))
   (circle-surface (x 5) 2)))